put "Building Metaphore" & return & "click an environment to see" into fld "Tell"
end mouseEnter
on mouseLeave
put empty into fld "Tell"
end mouseLeave
on closecard
pass closeCard
end closecard
on openCard
global floor, currentFloor
put "Welcome!" & return & "select your host environment" into field "Tell"
hide cd btn "destinationHiliter"
put "0 Lobby" into currentFloor
put 0 into floor
set hilite of cd btn "elevatorChoices" to true
end openCard
-- part 85 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=303 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
-- part 84 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=400 top=78 right=124 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: elevatorChoices
-- part 86 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=0 top=0 right=27 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title bar
-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=496 top=263 right=275 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: elevator
----- HyperTalk script -----
on mouseUp
global floor,lastfloor,currentfloor
global Help
if Help is True then exit mouseUp
put 3 into floor
push card
set the lockscreen to true
go to cd "ElevatorOpen"
put line floor of cd field "Destination" into currentfloor
put currentFloor into cd field "currentfloor"
set the hilite of button id 11 to false
set the hilite of button id 12 to false
set the hilite of button id 13 to false
set the hilite of button id 14 to false
set the hilite of button currentfloor to true
put currentfloor into cd field "currentfloor"
go to cd "ElevatorDoorLobby"
unlock screen with visual effect dissolve
end mouseUp
--• HELP
on mouseEnter
global Help
if Help then
set lockscreen to true
show field "Explainer"
put "This is the Elevator Button" && return && return && "Feel free to wander through this building, " && "examining the environments and solutions provided." into field "Explainer"
unlock screen with dissolve fast
else
put "Elevator Button" & return & "click to go in" into fld "Tell"
changeCurs 6069
end if
end mouseEnter
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseLeave
global Help
if Help
then
else
put empty into fld "Tell"
changeCurs 69
end if
end mouseLeave
-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=479 top=263 right=275 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Schematic
----- HyperTalk script -----
on mouseUp
Global Help
if Help is true then exit MouseUp
visual effect dissolve slowly to white
push card
go stack "Apple Desktop Connectivity"
pass mouseUp
end mouseUp
on mousedown
send mousedown to field "Explainer"
end mousedown
--• HELP
--on mouseEnter
global Help
if Help then
set lockscreen to true
show field "Explainer"
put "This is the Network Schematics Button" & return & return & "This button will take you" & return & "to a stack of networking configurations." & return & "(If that stack is available to your system)" into field "Explainer"
unlock screen with dissolve fast
else
put "Network Schematics Button" & return & "click to go to that stack" into fld "Tell"
end if
--end mouseEnter
--on mouseLeave
global Help
if Help
then
else
put empty into fld "Tell"
end if
--end mouseLeave
-- part 43 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=21 top=148 right=287 bottom=221
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: zoomer
-- part 44 (button)
-- low flags: 80
-- high flags: 0002
-- rect: left=419 top=60 right=138 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Elevator
----- HyperTalk script -----
on mouseUp
hide me
end mouseUp
-- part 50 (button)
-- low flags: 80
-- high flags: 0002
-- rect: left=283 top=87 right=231 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ElevatorThing
----- HyperTalk script -----
on mouseUp
pass mouseUp
end mouseUp
-- part 69 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=170 top=305 right=341 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blinker
----- HyperTalk script -----
on mouseEnter
put "Message Field" & return & "displays help information" into fld "Tell"
end mouseEnter
on mouseLeave
put empty into fld "Tell"
end mouseLeave
-- part 76 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=1 top=0 right=28 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 18
-- style flags: 2048
-- line height: 24
-- part name: RoomName
-- part 80 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=70 top=38 right=78 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=73 top=38 right=231 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseEnter
changeCurs 6069
put "Briefing Room Button" & return & "click to enter" into fld "Tell"
end mouseEnter
on mouseUp
set cursor to busy
visual effect zoom open slowly
go to cd "Briefing Room"
end mouseUp
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 77 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 18849 / 18849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask
----- HyperTalk script -----
on mouseEnter
changeCurs 6069
put "Lobby Button" & return & "current location" into fld "Tell"
end mouseEnter
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 78 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=402 top=123 right=226 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 10
-- style flags: 16384
-- line height: 13
-- part name: Destination
----- HyperTalk script -----
on mouseUp
global Env,currentFloor,lastFloor
set cursor to busy
--∆ Get line number and highlight line
put line SelectionAndHiliter(1) of me into Env
show cd button "DestinationHiliter"
--∆ Go inside elevator and set up view
set lockscreen to true
go to cd "ElevatorOpen"
--∆ Show name of chosen env
put env into EnvTemp
put envTemp into cd field "EnvName"
--∆ Fix env for code use
if Env is "Macintosh" then put "Mac" into Env
--∆ Set floor indicators
hide cd button "destinationHiliter"
hide cd button "3 ApplicationsHiliter"
hide cd button "2 Network ServicesHiliter"
hide cd button "1 HardwareHiliter"
show cd button "0 LobbyHiliter"
--∆ Set lights over door
set the hilite of btn "3 Applications" to false
set the hilite of btn "2 Network Services" to false
set the hilite of btn "1 Hardware" to false
set the hilite of btn "0 Lobby" to true
--∆ Put level name over door
put currentFloor into cd fld "currentFloor"
play "22"
unlock screen with visual effect barn door open
end mouseup
on mouseEnter
changeCurs 6069
put "Environment Chooser" & return & "click to enter elevator" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put "" into fld "Tell"
end mouseLeave
-- part 79 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=403 top=128 right=142 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DestinationHiliter
-- part 81 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=290 top=38 right=78 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 82 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=399 top=78 right=122 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 12
-- style flags: 10240
-- line height: 14
-- part name:
-- part 83 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=280 top=84 right=231 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
set hilite of cd btn elevatorChoices to true
play cymbal
end mouseUp
-- part 87 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=280 top=276 right=293 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Time
-- part 88 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=62 top=274 right=291 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Old Time
-- part contents for card part 43
----- text -----
Zoomer is an XCMD resource which you may install in any stack to produce a zooming rectangle animation effect, similar to that in the Finder. I've seen a couple of other externals similar to this, but I think you will find this one snappier and smoother than the others.
The syntax of zoomer is as follows:
Zoomer L1,T1,R1,B1,L2,T2,R2,B2
where L1, T1, R1 and B1 are the left, top, right and bottom coordinates of the origin rectangle, and L2, T2, R2 and B2 are the left, top, right and bottom coordinates of the destination rectangle. This order corresponds to the order of coordinates used by Hypercard when you request the Rect of an object, like a button or field. The parameters should be whole numbers.
For a more creative use of Zoomer, close this window and click the ? icon again, with the Option key held down.
If you pass more than eight parameters to Zoomer, any extra parameters will be ignored. If you pass less than eight parameters, Zoomer will do nothing. Likewise, if you try to pass any non-numeric characters, Zoomer will just play dead.
Mac II users: Zoomer operates on coordinates local to the HyperCard window, not global screen coordinates.